home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PCMania 19
/
PCMania19.iso
/
Jogos em Flash
/
ESTRATEGIA
/
BATTLE_SHIPS.SWF
/
scripts
/
frame_131
/
DoAction.as
Wrap
Text File
|
2003-11-17
|
2KB
|
81 lines
x = eval("c" add sd add "x");
y = eval("c" add sd add "y");
err = level;
if(sd == "2")
{
i = - "1";
while(i < "2")
{
xxx = x + i * "2";
yyy = y - "2";
if(yyy != "0" and xxx != "0" and xxx != "19")
{
call("chs");
if(eval("p" add (x + i) add "_" add (y - "1")) < "9" and eval("p" add xxx add "_" add yyy) < "9" and shots and err and er == "0")
{
call("c5");
}
}
yyy = y + "2";
if(yyy != "19" and xxx != "0" and xxx != "19")
{
call("chs");
if(eval("p" add (x + i) add "_" add (y + "1")) < "9" and eval("p" add xxx add "_" add yyy) < "9" and shots and err and er == "0")
{
call("c5");
}
}
i += "1";
}
xxx = x - "2";
yyy = y;
call("chs");
if(eval("p" add (x - "1") add "_" add yyy) < "9" and eval("p" add xxx add "_" add yyy) < "9" and shots and err and er == "0" and xxx != "0" and xxx != "19")
{
call("c5");
}
xxx = x + "2";
call("chs");
if(eval("p" add (x + "1") add "_" add yyy) < "9" and eval("p" add xxx add "_" add yyy) < "9" and shots and err and er == "0" and xxx != "0" and xxx != "19")
{
call("c5");
}
}
else
{
xxx = x - "1";
yyy = y;
call("chs");
if(eval("p" add xxx add "_" add yyy) < "9" and shots and err and er == "0")
{
call("c5");
}
xxx = x + "1";
yyy = y;
call("chs");
if(eval("p" add xxx add "_" add yyy) < "9" and shots and err and er == "0")
{
call("c5");
}
xxx = x - "1";
call("chs");
if(eval("p" add xxx add "_" add yyy) < "9" and shots and err and er == "0")
{
call("c5");
}
xxx = x;
yyy = y - "1";
call("chs");
if(eval("p" add xxx add "_" add yyy) < "9" and shots and err and er == "0")
{
call("c5");
}
xxx = x;
yyy = y + "1";
call("chs");
if(eval("p" add xxx add "_" add yyy) < "9" and shots and err and er == "0")
{
call("c5");
}
}